home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / away < prev    next >
Text File  |  2002-09-18  |  885b  |  40 lines
  1. /*
  2.  * AWAY script -- a minimalist faking of the /AWAY command for when they
  3.  * take /AWAY away from us.  Only sends the message once per nick per time
  4.  * you change it.
  5.  * Requires ircII2.6 or later (Written for EPIC3.001)
  6.  */
  7.  
  8. /*
  9.  * This variable determines how often you send the away message to a 
  10.  * person, even if they've already seen it.
  11.  */
  12. @ away.recycle_time = 10000
  13.  
  14. on #-msg -633 * 
  15. {
  16.     if (away.msg && (sentaway[$encode($0)] < away.time) || \
  17.         (sentaway[$encode($0)] + away.recycle_time < time()))
  18.     {
  19.         ctcp $0 AWAY $away.msg $away.gonefor()
  20.         @ sentaway[$encode($0)] = time()
  21.     }
  22. }
  23.  
  24. alias away 
  25. {
  26.     if (away.msg = [$*])
  27.     {
  28.         echo *** You are now away [$*]
  29.     }
  30.     {
  31.         echo *** You are now back $away.gonefor()
  32.     }
  33.     @ away.time = time()
  34. }
  35.  
  36. alias away.idle @ function_return = time() - away.time
  37. alias away.gonefor @ function_return = [\(Away for $tdiff($away.idle())\)]
  38.  
  39. #hop'96
  40.